inherited frmChargeMeter: TfrmChargeMeter
  Left = 515
  Top = 226
  VertScrollBar.Range = 0
  AutoSize = True
  BorderStyle = bsDialog
  Caption = #1053#1072#1095#1080#1089#1083#1077#1085#1080#1077' '#1087#1086' '#1089#1095#1077#1090#1095#1080#1082#1091
  ClientHeight = 571
  ClientWidth = 692
  Font.Style = [fsBold]
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 542
    Width = 692
    Height = 29
    Align = alTop
    TabOrder = 4
    inherited BitBtn1: TBitBtn
      Left = 440
      Top = 3
      Width = 120
      Font.Height = -13
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    inherited BitBtn2: TBitBtn
      Left = 565
      Top = 3
      Width = 120
      Font.Height = -13
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
    object BitBtn3: TBitBtn
      Left = 315
      Top = 3
      Width = 120
      Height = 25
      Action = aCalc
      Anchors = [akTop, akRight]
      Caption = #1056#1072#1089#1095#1077#1090' (F5)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD2DF
        F8F4F4F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFC9C9CCDADADD0392FB069CFE969CBDFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1F1F12230A1000DEA9698B22CB7
        FA56FFFF26B1FEF3F3F5F8F5F585724D8C8B65988B69988B68928A668D8A6494
        91622C2C810004FF0002FF605F6A3385F36EB4F75BAEFCCFDEF8F6E7E466E4A4
        71FFC491FFCD90FFCE7EFFC772FFC376FFC00000C00D15FF1319F836758E58B2
        A741857DBFBEC1FFFFFFF5E7E46ADB9E74FABF96FBC895FBC882F8C176F8BD7C
        FFBD0C11B83F46FF4C52FF4146EE3639F01E27E9B2B2BAFFFFFFF5E7E470DEA5
        7AFAC19BFBCB9AFBCB87F8C37BF7BF80FFC13F669E6061FB8588FF888BFF7A7E
        FF2326A2DCD9D9FFFFFFF6E8E62FAD5288FFD0A1FBCFA0FBCE8DFAC984FCC981
        F9C27EFFC13C619C4B50BD5C60C8374AA874A982DBD7D7FFFFFFF4E9E6C19054
        0FC25BB3FFE1A8FDD671F0B52EB14D84FECC85F9C687FFC697F8C996ECC7A7FF
        D677C98EDAD7D7FFFFFFF2E9E6F99A71CCA5662DC66BA0FBD2369E34FFAA7C34
        AF4C8AFED187F8C79BFBCFABFDD5A5FFD678C68EDAD7D7FFFFFFF2E9E6EF9D72
        FFB58DBFA8693B9F39FFB28EFFB38AF2AD7E23B04990FFD5A4FDD8B3FEDDA9FF
        DA7AC68FDAD7D7FFFFFFF2E8E5EFAF8EFFC8AAFFC7ABFFC7ADFFC7A9FFC6A9FF
        C7ABEEBF9A14B44A7BD49629A83FBDFFE97DC692DAD7D7FFFFFFF2E8E4EFC1AC
        FFDCCAFFDAC7FFDAC7FFDAC7FFDAC7FFDAC7FFDCCBE0D1B0A2C087FED8C54BB5
        5B81CA9ADAD7D7FFFFFFF2E6E3F3DBD0FFFAF4FFF8F2FFF8F2FFF8F2FFF8F2FF
        F8F2FFF8F2FFF9F4FFFAF6FFF9F5F5F5E85C9643D9D6D6FFFFFFFBFAF9C99B8B
        D3AB9CD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD2AA9BD6AC
        9ED3A397FEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
  end
  inherited ToolBar1: TToolBar
    Top = 571
    Width = 692
    Height = 0
    TabOrder = 0
    Visible = False
  end
  object Pan1: TPanel [2]
    Left = 0
    Top = 89
    Width = 692
    Height = 148
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object dbgMeterList: TDBGridEh
      Left = 0
      Top = 0
      Width = 692
      Height = 148
      Align = alClient
      AllowedOperations = [alopUpdateEh]
      DataGrouping.GroupLevels = <>
      DataSource = dscMeterList
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      HorzScrollBar.Visible = False
      Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      RowDetailPanel.Color = clBtnFace
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      UseMultiTitle = True
      VertScrollBar.VisibleMode = sbNeverShowEh
      VTitleMargin = 5
      OnColEnter = dbgMeterListColEnter
      OnEnter = dbgMeterListColEnter
      OnKeyUp = dbgMeterListKeyUp
      Columns = <
        item
          Color = clInactiveCaptionText
          EditButtons = <>
          FieldName = 'ID'
          Footers = <>
        end
        item
          Color = clInactiveCaptionText
          EditButtons = <>
          FieldName = 'METER_NUM'
          Footers = <>
        end
        item
          Color = clInactiveCaptionText
          EditButtons = <>
          FieldName = 'METER_NAME'
          Footers = <>
        end
        item
          Color = clInactiveCaptionText
          EditButtons = <>
          FieldName = 'MTYPE_NAME'
          Footers = <>
          Visible = False
        end
        item
          Color = clInactiveCaptionText
          EditButtons = <>
          FieldName = 'SAY_IND'
          Footers = <>
        end
        item
          Color = clInactiveCaptionText
          EditButtons = <>
          FieldName = 'CALCDATE'
          Footers = <>
        end
        item
          Color = clInactiveCaptionText
          EditButtons = <>
          FieldName = 'CAPACITY'
          Footers = <>
          Visible = False
        end
        item
          Color = clInactiveCaptionText
          EditButtons = <>
          FieldName = 'PRECIS'
          Footers = <>
          Visible = False
        end
        item
          Color = clInactiveCaptionText
          EditButtons = <>
          FieldName = 'ACCPOINT_ID'
          Footers = <>
          Visible = False
        end
        item
          Color = clInactiveCaptionText
          EditButtons = <>
          FieldName = 'LAST_ACT_DATE'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Footers = <>
          Width = 84
        end
        item
          Color = clInactiveCaptionText
          EditButtons = <>
          FieldName = 'ACT_ID'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'PH'
          Footers = <>
          Width = 89
        end>
      object RowDetailData: TRowDetailPanelControlEh
      end
    end
  end
  object GroupBox1: TGroupBox [3]
    Left = 0
    Top = 0
    Width = 692
    Height = 89
    Align = alTop
    Caption = ' '#1044#1086#1075#1086#1074#1086#1088' '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object DBText4: TDBText
      Left = 67
      Top = 49
      Width = 361
      Height = 17
      DataField = 'SERVICE_NAME'
      DataSource = dscServName
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 14
      Top = 49
      Width = 46
      Height = 16
      Alignment = taRightJustify
      Caption = #1059#1089#1083#1091#1075#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 20
      Top = 25
      Width = 40
      Height = 16
      Alignment = taRightJustify
      Caption = #1040#1076#1088#1077#1089
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText5: TDBText
      Left = 67
      Top = 25
      Width = 361
      Height = 17
      DataField = 'ADDRESS'
      DataSource = dscServName
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object sbCardAccpoint: TSpeedButton
      Left = 10
      Top = 72
      Width = 133
      Height = 22
      Action = aCardAccpoint
      Flat = True
      NumGlyphs = 2
      Transparent = False
      Visible = False
    end
    object SpeedButton1: TSpeedButton
      Left = 150
      Top = 72
      Width = 133
      Height = 22
      Action = aRecalcActs
      Flat = True
      NumGlyphs = 2
      Transparent = False
      Visible = False
    end
  end
  object pan3: TGroupBox [4]
    Left = 0
    Top = 333
    Width = 692
    Height = 209
    Align = alTop
    Caption = ' '#1055#1086' '#1072#1082#1090#1091' '#1089' '#1091#1095#1077#1090#1086#1084' '#1088#1072#1085#1077#1077' '#1079#1072#1085#1077#1089#1077#1085#1085#1099#1093' '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    DesignSize = (
      692
      209)
    object Label8: TLabel
      Left = 42
      Top = 25
      Width = 106
      Height = 16
      Alignment = taRightJustify
      Caption = #1044#1072#1090#1072' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 293
      Top = 25
      Width = 44
      Height = 16
      Alignment = taRightJustify
      Caption = #1058#1072#1088#1080#1092
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText1: TDBText
      Left = 344
      Top = 25
      Width = 93
      Height = 16
      DataField = 'RTARIFF'
      DataSource = dscTariff
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHotLight
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label1: TLabel
      Left = 34
      Top = 49
      Width = 114
      Height = 16
      Alignment = taRightJustify
      Caption = #1044#1072#1090#1072' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1081
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object dbgStoki: TDBGridEh
      Left = 2
      Top = 74
      Width = 688
      Height = 133
      Align = alBottom
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataGrouping.GroupLevels = <>
      DataSource = dscCountToSumm
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      FooterRowCount = 1
      HorzScrollBar.Visible = False
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ReadOnly = True
      RowDetailPanel.Color = clBtnFace
      SumList.Active = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      UseMultiTitle = True
      VertScrollBar.VisibleMode = sbNeverShowEh
      VTitleMargin = 5
      Columns = <
        item
          EditButtons = <>
          FieldName = 'RACT_ID'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'NAME'
          Footer.Font.Charset = DEFAULT_CHARSET
          Footer.Font.Color = clWindowText
          Footer.Font.Height = -13
          Footer.Font.Name = 'MS Sans Serif'
          Footer.Font.Style = [fsBold]
          Footer.Value = #1048#1090#1086#1075#1086':'
          Footer.ValueType = fvtStaticText
          Footers = <>
          Width = 200
        end
        item
          EditButtons = <>
          FieldName = 'RBASE_SUMMA'
          Footer.FieldName = 'RBASE_SUMMA'
          Footer.ValueType = fvtSum
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'RSUMMA'
          Footer.FieldName = 'RSUMMA'
          Footer.ValueType = fvtSum
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'RSUMMA_EX'
          Footer.FieldName = 'RSUMMA_EX'
          Footer.ValueType = fvtSum
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'RCOUNT'
          Footers = <>
          Width = 100
        end>
      object RowDetailData: TRowDetailPanelControlEh
      end
    end
    object dbtActDate: TDBDateTimeEditEh
      Left = 154
      Top = 21
      Width = 116
      Height = 22
      AlwaysShowBorder = True
      EditButton.Width = 16
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      Kind = dtkDateEh
      ParentFont = False
      TabOrder = 1
      Visible = True
      OnChange = dbtTariffDateChange
    end
    object BitBtn5: TBitBtn
      Left = 663
      Top = 13
      Width = 22
      Height = 22
      Hint = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1103
      Anchors = [akTop, akRight]
      BiDiMode = bdLeftToRight
      ParentBiDiMode = False
      TabOrder = 2
      TabStop = False
      Visible = False
      WordWrap = True
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFF00000000404040404000404040404000404040
        4040004040404040004040404040004040000000FFFFFFFFFFFFFFFFFF004040
        30EFEFCFCFCF40BFBFAFAFAF40BFBFB0B0B030EFEFC0C0C030EFEFCFCFCF30EF
        EF004040FFFFFFFFFFFFFFFFFF404040CFCFCF20BFBF80202080000080000080
        6060CFCFCF00FFFFDFDFDF30EFEFC0C0C0404040FFFFFFFFFFFFFFFFFF004040
        30EFEFCFCFCF20BFBF800000802020C0C0C000FFFFDFDFDF00FFFFCFCFCF30EF
        EF004040FFFFFFFFFFFFFFFFFF404040CFCFCF00FFFFCFCFCF80000080404030
        EFEFDFDFDF00FFFFCFCFCF00FFFFC0C0C0404040FFFFFFFFFFFFFFFFFF004040
        30EFEFDFDFDF40BFBF800000804040CFCFCF00FFFFA0A0A020DFDFDFDFDF00FF
        FF004040FFFFFFFFFFFFFFFFFF404040C0C0C000FFFFDFDFDF80000080404020
        DFDFC0C0C020404060606000DFDFC0C0C0404040FFFFFFFFFFFFFFFFFF004040
        00FFFFDFDFDF40BFBF802020804040C0C0C000FFFF0040400000008080808080
        80202020FFFFFFFFFFFFFFFFFF404040C0C0C000FFFFDFDFDF50CFCFC0C0C030
        EFEFCFCFCF004040909090404040000000000000FFFFFFFFFFFFFFFFFF004040
        30EFEFDFDFDF40BFBF804040806060CFCFCF00FFFF004040A0A0A0A0A0A09090
        90202020FFFFFFFFFFFFFFFFFF404040CFCFCF30EFEFBFBFBF80202080404030
        EFEFCFCFCF204040A0A0A0B0B0B0202020FFFFFFFFFFFFFFFFFFFFFFFF004040
        30EFEFCFCFCF30EFEFCFCFCF40BFBFDFDFDFB0B0B0000000909090202020FFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFF404040C0C0C030EFEFCFCFCF30EFEFC0C0C030
        EFEF909090000000202020FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
        404040004040404040004040404040004040002020000000FFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
    object dbtChargeDate: TDBDateTimeEditEh
      Left = 154
      Top = 45
      Width = 116
      Height = 22
      AlwaysShowBorder = True
      EditButton.Width = 16
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      Kind = dtkDateEh
      ParentFont = False
      TabOrder = 3
      Visible = True
      OnChange = dbtTariffDateChange
    end
  end
  object pan21: TGroupBox [5]
    Left = 0
    Top = 237
    Width = 692
    Height = 96
    Align = alTop
    Caption = ' '#1053#1086#1074#1099#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1103' '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    object Label9: TLabel
      Left = 76
      Top = 23
      Width = 72
      Height = 16
      Alignment = taRightJustify
      Caption = #1055#1086#1082#1072#1079#1072#1085#1080#1103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 59
      Top = 47
      Width = 89
      Height = 16
      Alignment = taRightJustify
      Caption = #1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label17: TLabel
      Left = 30
      Top = 71
      Width = 118
      Height = 16
      Alignment = taRightJustify
      Caption = #1055#1077#1088#1077#1093#1086#1076#1099' '#1095#1077#1088#1077#1079' 0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object dbMeterPH: TDBNumberEditEh
      Left = 154
      Top = 19
      Width = 116
      Height = 22
      AlwaysShowBorder = True
      DataField = 'PH'
      DataSource = dscMeterList
      DecimalPlaces = 0
      EditButtons = <
        item
          Style = ebsMinusEh
          Width = 16
          OnClick = dbMeterPHEditButtons0Click
        end
        item
          Style = ebsPlusEh
          Width = 16
          OnClick = dbMeterPHEditButtons1Click
        end>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      TabOrder = 0
      Visible = True
      OnChange = dbMeterPHChange
    end
    object dbMeterCOUNT: TDBNumberEditEh
      Left = 154
      Top = 43
      Width = 116
      Height = 22
      AlwaysShowBorder = True
      DecimalPlaces = 0
      EditButtons = <
        item
          Style = ebsMinusEh
          Width = 16
          OnClick = dbMeterCOUNTEditButtons0Click
        end
        item
          Style = ebsPlusEh
          Width = 16
          OnClick = dbMeterCOUNTEditButtons1Click
        end>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      TabOrder = 1
      Value = 0.000000000000000000
      Visible = True
      OnChange = dbMeterCOUNTChange
    end
    object dbZero: TDBNumberEditEh
      Left = 154
      Top = 67
      Width = 116
      Height = 22
      AlwaysShowBorder = True
      DataField = 'PZERO'
      DataSource = dscMeterList
      DecimalPlaces = 0
      EditButtons = <
        item
          Style = ebsMinusEh
          Width = 16
          OnClick = dbZeroEditButtons0Click
        end
        item
          Style = ebsPlusEh
          Width = 16
          OnClick = dbZeroEditButtons1Click
        end>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      MaxValue = 1.000000000000000000
      MinValue = -1.000000000000000000
      ParentFont = False
      TabOrder = 2
      Visible = True
      OnChange = dbMeterPHChange
    end
    object BitBtn4: TBitBtn
      Left = 276
      Top = 19
      Width = 22
      Height = 22
      Action = aMeterPaysInd
      BiDiMode = bdLeftToRight
      ParentBiDiMode = False
      TabOrder = 3
      TabStop = False
      WordWrap = True
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFF00000000404040404000404040404000404040
        4040004040404040004040404040004040000000FFFFFFFFFFFFFFFFFF004040
        30EFEFCFCFCF40BFBFAFAFAF40BFBFB0B0B030EFEFC0C0C030EFEFCFCFCF30EF
        EF004040FFFFFFFFFFFFFFFFFF404040CFCFCF20BFBF80202080000080000080
        6060CFCFCF00FFFFDFDFDF30EFEFC0C0C0404040FFFFFFFFFFFFFFFFFF004040
        30EFEFCFCFCF20BFBF800000802020C0C0C000FFFFDFDFDF00FFFFCFCFCF30EF
        EF004040FFFFFFFFFFFFFFFFFF404040CFCFCF00FFFFCFCFCF80000080404030
        EFEFDFDFDF00FFFFCFCFCF00FFFFC0C0C0404040FFFFFFFFFFFFFFFFFF004040
        30EFEFDFDFDF40BFBF800000804040CFCFCF00FFFFA0A0A020DFDFDFDFDF00FF
        FF004040FFFFFFFFFFFFFFFFFF404040C0C0C000FFFFDFDFDF80000080404020
        DFDFC0C0C020404060606000DFDFC0C0C0404040FFFFFFFFFFFFFFFFFF004040
        00FFFFDFDFDF40BFBF802020804040C0C0C000FFFF0040400000008080808080
        80202020FFFFFFFFFFFFFFFFFF404040C0C0C000FFFFDFDFDF50CFCFC0C0C030
        EFEFCFCFCF004040909090404040000000000000FFFFFFFFFFFFFFFFFF004040
        30EFEFDFDFDF40BFBF804040806060CFCFCF00FFFF004040A0A0A0A0A0A09090
        90202020FFFFFFFFFFFFFFFFFF404040CFCFCF30EFEFBFBFBF80202080404030
        EFEFCFCFCF204040A0A0A0B0B0B0202020FFFFFFFFFFFFFFFFFFFFFFFF004040
        30EFEFCFCFCF30EFEFCFCFCF40BFBFDFDFDFB0B0B0000000909090202020FFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFF404040C0C0C030EFEFCFCFCF30EFEFC0C0C030
        EFEF909090000000202020FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
        404040004040404040004040404040004040002020000000FFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
  end
  inherited ActionList1: TActionList
    Images = MAIN.ImageList
    Left = 193
    Top = 12
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
    object aCalc: TAction
      Caption = #1056#1072#1089#1095#1077#1090'(F5)'
      ImageIndex = 12
      ShortCut = 116
      OnExecute = aCalcExecute
    end
    object aMeterChange: TAction
      Caption = #1057#1084#1077#1085#1072' '#1089#1095#1077#1090#1095#1080#1082#1072
    end
    object aMeterPaysInd: TAction
      Hint = #1048#1089#1090#1086#1088#1080#1103' '#1086#1087#1083#1072#1090
      ImageIndex = 8
      ShortCut = 116
      OnExecute = aMeterPaysIndExecute
    end
    object aCardAccpoint: TAction
      Caption = #1050#1072#1088#1090#1086#1095#1082#1072' '#1058#1059
      Hint = #1055#1077#1088#1077#1081#1090#1080' '#1074' '#1082#1072#1088#1090#1086#1095#1082#1091' '#1090#1086#1095#1082#1080' '#1091#1095#1077#1090#1072
      OnExecute = aCardAccpointExecute
    end
    object aRecalcActs: TAction
      Caption = #1055#1077#1088#1077#1089#1095#1077#1090' '#1072#1082#1090#1086#1074
      Hint = #1055#1077#1088#1077#1089#1095#1080#1090#1072#1090#1100' '#1072#1082#1090#1099
      OnExecute = aRecalcActsExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'frmChargeMeter'
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width')
    Left = 160
    Top = 12
  end
  object dsMeterList: TpFIBDataSet
    RefreshSQL.Strings = (
      'select distinct m.id,'
      '       m.meter_num, '
      '       p.redate as calcdate, --'#1044#1072#1090#1072' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
      '       p.rph as say_ind,'
      
        '       coalesce(m.name, '#39#1041#1077#1079' '#1085#1072#1079#1074#1072#1085#1080#1103#39') || '#39'/'#39' || mt.capacity as' +
        ' meter_name,'
      '       mt.name as mtype_name, '
      '       power(10, mt.capacity) as capacity, '
      '       coalesce(mt.precis, 0) as precis,'
      '       m.accpoint_id,'
      '       p.rdate as last_act_date, --'#1044#1072#1090#1072' '#1087#1086#1089#1083#1077#1076#1085#1077#1075#1086' '#1072#1082#1090#1072
      '       cast(null as integer) as act_id,'
      '       cast(null as numeric(15, 3)) as ph,'
      '       cast(0 as smallint) as pzero'
      ''
      '  from vw_dogovors d'
      
        '  left join proc_accpoint_get_parents (d.accpoint_id, current_da' +
        'te, current_date) pp on 1 = 1'
      '  join m_accpoint ma on ma.id = pp.raccpoint_id'
      
        '  join m_accpoint_type mat on mat.id = ma.account_type and mat.g' +
        'roup_acc <> 1'
      
        '  left join proc_accpoint_get_meters (ma.id, current_date, null,' +
        ' null) pm on pm.rstatus > 0 and pm.rgroup_acc <> 1'
      
        '--  proc_dogovor_get_meters (:pdogovor_id, current_date, null, n' +
        'ull) pm'
      '  join meters m on m.id = pm.rmeter_id'
      '  join meter_types mt on mt.id = m.meter_type'
      '  left join proc_meter_get_ind (m.id, current_date) p on 1=1'
      ''
      '  where pm.rstatus = 1'
      '    and d.id = :pdogovor_id'
      ''
      '/*'
      'select m.id,'
      '       m.meter_num, '
      '       p.redate as calcdate, --'#1044#1072#1090#1072' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
      '       p.rph as say_ind,'
      
        '       coalesce(m.name,'#39#1041#1077#1079' '#1085#1072#1079#1074#1072#1085#1080#1103#39') ||'#39'/'#39'|| mt.capacity as me' +
        'ter_name, '
      '       mt.name as mtype_name, '
      '       power(10, mt.capacity) as capacity, '
      '       coalesce(mt.precis, 0) as precis,'
      '       m.accpoint_id,'
      '       p.rdate as last_act_date, --'#1044#1072#1090#1072' '#1087#1086#1089#1083#1077#1076#1085#1077#1075#1086' '#1072#1082#1090#1072
      '       cast(null as integer) as act_id,'
      '       cast(null as numeric(15,3)) as ph,'
      '       cast(0 as smallint) as pzero'
      ''
      
        '  from proc_dogovor_get_meters (:pdogovor_id, current_date, null' +
        ', null) pm'
      '  join meters m on m.id = pm.rmeter_id'
      '  join meter_types mt on mt.id = m.meter_type'
      '  left join proc_meter_get_ind (m.id, current_date) p on 1=1'
      ''
      '  where pm.rstatus = 1'
      '*/')
    SelectSQL.Strings = (
      'select distinct m.id,'
      '       m.meter_num, '
      '       p.redate as calcdate, --'#1044#1072#1090#1072' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
      '       p.rph as say_ind,'
      
        '       coalesce(m.name, '#39#1041#1077#1079' '#1085#1072#1079#1074#1072#1085#1080#1103#39') || '#39'/'#39' || mt.capacity as' +
        ' meter_name,'
      '       mt.name as mtype_name, '
      '       power(10, mt.capacity) as capacity, '
      '       coalesce(mt.precis, 0) as precis,'
      '       m.accpoint_id,'
      '       p.rdate as last_act_date, --'#1044#1072#1090#1072' '#1087#1086#1089#1083#1077#1076#1085#1077#1075#1086' '#1072#1082#1090#1072
      '       cast(null as integer) as act_id,'
      '       cast(null as numeric(15, 3)) as ph,'
      '       cast(0 as smallint) as pzero'
      ''
      '  from vw_dogovors d'
      
        '  left join proc_accpoint_get_parents (d.accpoint_id, current_da' +
        'te, current_date) pp on 1 = 1'
      '  join m_accpoint ma on ma.id = pp.raccpoint_id'
      
        '  join m_accpoint_type mat on mat.id = ma.account_type and mat.g' +
        'roup_acc <> 1'
      
        '  left join proc_accpoint_get_meters (ma.id, current_date, null,' +
        ' null) pm on pm.rstatus > 0 and pm.rgroup_acc <> 1'
      
        '--  proc_dogovor_get_meters (:pdogovor_id, current_date, null, n' +
        'ull) pm'
      '  join meters m on m.id = pm.rmeter_id'
      '  join meter_types mt on mt.id = m.meter_type'
      '  left join proc_meter_get_ind (m.id, current_date) p on 1=1'
      ''
      '  where pm.rstatus = 1'
      '    and d.id = :pdogovor_id'
      ''
      '/*'
      ''
      ''
      'select m.id,'
      '       m.meter_num, '
      '       p.redate as calcdate, --'#1044#1072#1090#1072' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
      '       p.rph as say_ind,'
      
        '       coalesce(m.name,'#39#1041#1077#1079' '#1085#1072#1079#1074#1072#1085#1080#1103#39') ||'#39'/'#39'|| mt.capacity as me' +
        'ter_name, '
      '       mt.name as mtype_name, '
      '       power(10, mt.capacity) as capacity, '
      '       coalesce(mt.precis, 0) as precis,'
      '       m.accpoint_id,'
      '       p.rdate as last_act_date, --'#1044#1072#1090#1072' '#1087#1086#1089#1083#1077#1076#1085#1077#1075#1086' '#1072#1082#1090#1072
      '       cast(null as integer) as act_id,'
      '       cast(null as numeric(15,3)) as ph,'
      '       cast(0 as smallint) as pzero'
      ''
      
        '  from proc_dogovor_get_meters (:pdogovor_id, current_date, null' +
        ', null) pm'
      '  join meters m on m.id = pm.rmeter_id'
      '  join meter_types mt on mt.id = m.meter_type'
      '  left join proc_meter_get_ind (m.id, current_date) p on 1=1'
      ''
      '  where pm.rstatus = 1'
      ''
      '*/')
    AfterOpen = dsMeterListAfterOpen
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Left = 527
    Top = 8
    object dsMeterListID: TFIBIntegerField
      DisplayLabel = #1048#1044
      DisplayWidth = 8
      FieldName = 'ID'
    end
    object dsMeterListMETER_NUM: TFIBStringField
      DisplayLabel = #1057#1095#1077#1090#1095#1080#1082' '#8470'/'#1050#1058
      DisplayWidth = 15
      FieldName = 'METER_NUM'
      EmptyStrToNull = True
    end
    object dsMeterListCALCDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
      FieldName = 'CALCDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object dsMeterListSAY_IND: TFIBBCDField
      DisplayLabel = #1055#1086#1082#1072#1079#1072#1085#1080#1103
      DisplayWidth = 12
      FieldName = 'SAY_IND'
      DisplayFormat = '#,##0.000'
      EditFormat = '0.000'
      Size = 3
      RoundByScale = True
    end
    object dsMeterListMETER_NAME: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077'/'#1079#1085#1072#1095#1085#1086#1089#1090#1100
      DisplayWidth = 15
      FieldName = 'METER_NAME'
      Size = 72
      EmptyStrToNull = True
    end
    object dsMeterListMTYPE_NAME: TFIBStringField
      FieldName = 'MTYPE_NAME'
      Size = 16
      EmptyStrToNull = True
    end
    object dsMeterListCAPACITY: TFIBFloatField
      FieldName = 'CAPACITY'
    end
    object dsMeterListPRECIS: TFIBIntegerField
      FieldName = 'PRECIS'
    end
    object dsMeterListACCPOINT_ID: TFIBIntegerField
      FieldName = 'ACCPOINT_ID'
    end
    object dsMeterListLAST_ACT_DATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1087#1086#1089#1083#1077#1076#1085#1077#1075#1086' '#1072#1082#1090#1072
      FieldName = 'LAST_ACT_DATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object dsMeterListACT_ID: TFIBIntegerField
      FieldName = 'ACT_ID'
    end
    object dsMeterListPH: TFIBBCDField
      DisplayLabel = #1053#1086#1074#1099#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1103
      FieldName = 'PH'
      DisplayFormat = '#,##0.000'
      EditFormat = '0.000'
      Size = 3
      RoundByScale = True
    end
    object dsMeterListPZERO: TFIBSmallIntField
      DisplayLabel = #1055#1077#1088#1077#1093#1086#1076#1086#1074' '#1095#1077#1088#1077#1079' 0'
      FieldName = 'PZERO'
    end
  end
  object dscMeterList: TDataSource
    DataSet = dscm_MeterList
    Left = 599
    Top = 8
  end
  object dsServName: TpFIBDataSet
    SelectSQL.Strings = (
      'select s.name as service_name, a.address'
      'from dogovors d,services s, v_abons a'
      'where d.id = :dogovor_id'
      '  and s.id = d.service_id'
      '  and a.id = d.abonent_id')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Left = 527
    Top = 40
  end
  object dscServName: TDataSource
    DataSet = dsServName
    Left = 563
    Top = 40
  end
  object dsTariff: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select rtariff from proc_meter_calc_tariff(:dogovor_id, :pdate, ' +
        'null, null)')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Left = 527
    Top = 74
    object dsTariffRTARIFF: TFIBBCDField
      FieldName = 'RTARIFF'
      Size = 2
      RoundByScale = True
    end
  end
  object dscTariff: TDataSource
    DataSet = dsTariff
    Left = 563
    Top = 74
  end
  object dscCountToSumm: TDataSource
    DataSet = dsCountToSumm
    Left = 561
    Top = 222
  end
  object dsCountToSumm: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select ract_id, s.name, rgroup_id, rbase_summa, rsumma, rsumma_e' +
        'x, cast(rcount as double precision) as rcount, rcalc_str'
      '  from proc_gen_charge_meter(:pact_id, :pdocdate, :pgenerate) p'
      '  join services s on s.id = p.rgroup_id')
    Transaction = tr_Act
    Database = MAINDM.pMainDatabase
    Left = 529
    Top = 222
    oFetchAll = True
    object dsCountToSummRACT_ID: TFIBIntegerField
      FieldName = 'RACT_ID'
      Visible = False
    end
    object dsCountToSummNAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 20
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsCountToSummRGROUP_ID: TFIBIntegerField
      FieldName = 'RGROUP_ID'
      Visible = False
    end
    object dsCountToSummRBASE_SUMMA: TFIBBCDField
      DisplayLabel = #1041#1072#1079#1086#1074#1072#1103' '#1089#1091#1084#1084#1072
      FieldName = 'RBASE_SUMMA'
      Size = 2
      RoundByScale = True
    end
    object dsCountToSummRSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      FieldName = 'RSUMMA'
      Size = 2
      RoundByScale = True
    end
    object dsCountToSummRSUMMA_EX: TFIBBCDField
      DisplayLabel = #1051#1100#1075#1086#1090#1099
      FieldName = 'RSUMMA_EX'
      Size = 2
      RoundByScale = True
    end
    object dsCountToSummRCALC_STR: TFIBMemoField
      FieldName = 'RCALC_STR'
      BlobType = ftMemo
      Size = 8
    end
    object dsCountToSummRCOUNT: TFIBFloatField
      DisplayLabel = #1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077
      FieldName = 'RCOUNT'
    end
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 472
    Top = 8
  end
  object ds_Act: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    RACT_ID'
      'FROM'
      '    PROC_METER_NEW_ACT(:PACCPOINT_ID,'
      '    :PEDATE,'
      '    :PDOCDATE,'
      '    :PMETER_STR,'
      '    :PMETER_PH_STR,'
      '    :PMETER_ZERO_STR) ')
    Transaction = tr_Act
    Database = MAINDM.pMainDatabase
    Left = 529
    Top = 190
    oFetchAll = True
    object ds_ActRACT_ID: TFIBIntegerField
      FieldName = 'RACT_ID'
    end
  end
  object ds_MeterInd: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE METER_IND'
      'SET '
      '    METER_ID = :METER_ID,'
      '    ACT_ID = :ACT_ID,'
      '    PH = :PH'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    METER_IND'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO METER_IND('
      '    ID,'
      '    METER_ID,'
      '    ACT_ID,'
      '    PH'
      ')'
      'VALUES('
      '    :ID,'
      '    :METER_ID,'
      '    :ACT_ID,'
      '    :PH'
      ')')
    RefreshSQL.Strings = (
      'SELECT'
      '    ID,'
      '    METER_ID,'
      '    ACT_ID,'
      '    PH'
      'FROM'
      '    METER_IND '
      'where( '
      '    act_id = :id'
      '     ) and (     METER_IND.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    METER_ID,'
      '    ACT_ID,'
      '    PH'
      'FROM'
      '    METER_IND '
      'where'
      '    act_id = :id')
    AfterOpen = dsMeterListAfterOpen
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Left = 527
    Top = 108
    object FIBIntegerField1: TFIBIntegerField
      FieldName = 'ID'
    end
    object FIBStringField1: TFIBStringField
      DisplayLabel = #1057#1095#1077#1090#1095#1080#1082' '#8470'/'#1050#1058
      DisplayWidth = 15
      FieldName = 'METER_NUM'
      EmptyStrToNull = True
    end
    object FIBDateField1: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'CALCDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object FIBBCDField1: TFIBBCDField
      DisplayLabel = #1055#1086#1082#1072#1079#1072#1085#1080#1103
      DisplayWidth = 12
      FieldName = 'SAY_IND'
      DisplayFormat = '#,##0.000'
      EditFormat = '0.000'
      Size = 3
      RoundByScale = True
    end
    object FIBStringField2: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077'/'#1079#1085#1072#1095#1085#1086#1089#1090#1100
      DisplayWidth = 15
      FieldName = 'METER_NAME'
      Size = 72
      EmptyStrToNull = True
    end
    object FIBStringField3: TFIBStringField
      FieldName = 'MTYPE_NAME'
      Size = 16
      EmptyStrToNull = True
    end
    object FIBFloatField1: TFIBFloatField
      FieldName = 'CAPACITY'
    end
    object FIBIntegerField2: TFIBIntegerField
      FieldName = 'PRECIS'
    end
    object FIBIntegerField3: TFIBIntegerField
      FieldName = 'ACCPOINT_ID'
    end
    object FIBDateField2: TFIBDateField
      FieldName = 'LAST_ACT_DATE'
    end
    object FIBIntegerField4: TFIBIntegerField
      FieldName = 'ACT_ID'
    end
    object FIBBCDField2: TFIBBCDField
      DisplayLabel = #1053#1086#1074#1099#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1103
      FieldName = 'PH'
      Size = 3
      RoundByScale = True
    end
  end
  object dsc_MeterInd: TDataSource
    DataSet = ds_MeterInd
    Left = 563
    Top = 108
  end
  object dscm_MeterList: TMemTableEh
    Active = True
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'METER_NUM'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'CALCDATE'
        DataType = ftDate
      end
      item
        Name = 'SAY_IND'
        DataType = ftBCD
      end
      item
        Name = 'METER_NAME'
        DataType = ftString
        Size = 72
      end
      item
        Name = 'MTYPE_NAME'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'CAPACITY'
        DataType = ftFloat
      end
      item
        Name = 'PRECIS'
        DataType = ftInteger
      end
      item
        Name = 'ACCPOINT_ID'
        DataType = ftInteger
      end
      item
        Name = 'LAST_ACT_DATE'
        DataType = ftDate
      end
      item
        Name = 'ACT_ID'
        DataType = ftInteger
      end
      item
        Name = 'PH'
        DataType = ftBCD
      end
      item
        Name = 'PZERO'
        DataType = ftSmallint
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    AfterOpen = dscm_MeterListAfterScroll
    BeforeScroll = dscm_MeterListBeforeScroll
    AfterScroll = dscm_MeterListAfterScroll
    Left = 564
    Top = 8
    object dscm_MeterListID: TIntegerField
      DisplayLabel = #1048#1044
      DisplayWidth = 8
      FieldName = 'ID'
    end
    object dscm_MeterListMETER_NUM: TStringField
      DisplayLabel = #1057#1095#1077#1090#1095#1080#1082' '#8470'/'#1050#1058
      DisplayWidth = 15
      FieldName = 'METER_NUM'
    end
    object dscm_MeterListMETER_NAME: TStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077' '#1089#1095#1077#1090#1095#1080#1082#1072
      DisplayWidth = 15
      FieldName = 'METER_NAME'
      Size = 72
    end
    object dscm_MeterListMTYPE_NAME: TStringField
      DisplayLabel = #1058#1080#1087' '#1089#1095#1077#1090#1095#1080#1082#1072
      DisplayWidth = 15
      FieldName = 'MTYPE_NAME'
      Size = 16
    end
    object dscm_MeterListCAPACITY: TFloatField
      FieldName = 'CAPACITY'
      Visible = False
    end
    object dscm_MeterListCALCDATE: TDateField
      DisplayLabel = #1044#1072#1090#1072' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
      DisplayWidth = 11
      FieldName = 'CALCDATE'
    end
    object dscm_MeterListSAY_IND: TBCDField
      DisplayLabel = #1058#1077#1082#1091#1097#1080#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1103
      DisplayWidth = 11
      FieldName = 'SAY_IND'
      Size = 0
    end
    object dscm_MeterListPRECIS: TIntegerField
      FieldName = 'PRECIS'
      Visible = False
    end
    object dscm_MeterListACCPOINT_ID: TIntegerField
      FieldName = 'ACCPOINT_ID'
      Visible = False
    end
    object dscm_MeterListLAST_ACT_DATE: TDateField
      DisplayLabel = #1044#1072#1090#1072' '#1087#1086#1089#1083#1077#1076#1085#1077#1075#1086' '#1072#1082#1090#1072
      FieldName = 'LAST_ACT_DATE'
    end
    object dscm_MeterListACT_ID: TIntegerField
      FieldName = 'ACT_ID'
      Visible = False
    end
    object dscm_MeterListPH: TBCDField
      DisplayLabel = #1053#1086#1074#1099#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1103
      FieldName = 'PH'
      Size = 0
    end
    object dscm_MeterListPZERO: TSmallintField
      DisplayLabel = #1055#1077#1088#1077#1093#1086#1076#1086#1074' '#1095#1077#1088#1077#1079' 0'
      FieldName = 'PZERO'
    end
    object MemTableData: TMemTableDataEh
      object DataStruct: TMTDataStructEh
        object ID: TMTNumericDataFieldEh
          FieldName = 'ID'
          NumericDataType = fdtIntegerEh
          Alignment = taRightJustify
          DisplayLabel = #1048#1044
          DisplayWidth = 8
          Required = False
          Visible = True
          currency = False
          Precision = 0
        end
        object METER_NUM: TMTStringDataFieldEh
          FieldName = 'METER_NUM'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayLabel = #1057#1095#1077#1090#1095#1080#1082' '#8470'/'#1050#1058
          DisplayWidth = 15
          Required = False
          Visible = True
          Size = 20
          Transliterate = False
        end
        object CALCDATE: TMTDateTimeDataFieldEh
          FieldName = 'CALCDATE'
          DateTimeDataType = fdtDateEh
          Alignment = taLeftJustify
          DisplayLabel = #1044#1072#1090#1072' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
          DisplayWidth = 10
          Required = False
          Visible = True
          DisplayFormat = 'dd.mm.yyyy'
        end
        object SAY_IND: TMTNumericDataFieldEh
          FieldName = 'SAY_IND'
          NumericDataType = fdtBCDEh
          Alignment = taRightJustify
          DisplayLabel = #1055#1086#1082#1072#1079#1072#1085#1080#1103
          DisplayWidth = 12
          Required = False
          Visible = True
          DisplayFormat = '#,##0.000'
          EditFormat = '0.000'
          currency = False
          Precision = 0
        end
        object METER_NAME: TMTStringDataFieldEh
          FieldName = 'METER_NAME'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077'/'#1079#1085#1072#1095#1085#1086#1089#1090#1100
          DisplayWidth = 15
          Required = False
          Visible = True
          Size = 72
          Transliterate = False
        end
        object MTYPE_NAME: TMTStringDataFieldEh
          FieldName = 'MTYPE_NAME'
          StringDataType = fdtStringEh
          Alignment = taLeftJustify
          DisplayLabel = 'MTYPE_NAME'
          DisplayWidth = 16
          Required = False
          Visible = True
          Size = 16
          Transliterate = False
        end
        object CAPACITY: TMTNumericDataFieldEh
          FieldName = 'CAPACITY'
          NumericDataType = fdtFloatEh
          Alignment = taRightJustify
          DisplayLabel = 'CAPACITY'
          DisplayWidth = 10
          Required = False
          Visible = True
          currency = False
          Precision = 15
        end
        object PRECIS: TMTNumericDataFieldEh
          FieldName = 'PRECIS'
          NumericDataType = fdtIntegerEh
          Alignment = taRightJustify
          DisplayLabel = 'PRECIS'
          DisplayWidth = 10
          Required = False
          Visible = True
          currency = False
          Precision = 0
        end
        object ACCPOINT_ID: TMTNumericDataFieldEh
          FieldName = 'ACCPOINT_ID'
          NumericDataType = fdtIntegerEh
          Alignment = taRightJustify
          DisplayLabel = 'ACCPOINT_ID'
          DisplayWidth = 10
          Required = False
          Visible = True
          currency = False
          Precision = 0
        end
        object LAST_ACT_DATE: TMTDateTimeDataFieldEh
          FieldName = 'LAST_ACT_DATE'
          DateTimeDataType = fdtDateEh
          Alignment = taLeftJustify
          DisplayLabel = #1044#1072#1090#1072' '#1087#1086#1089#1083#1077#1076#1085#1077#1075#1086' '#1072#1082#1090#1072
          DisplayWidth = 10
          Required = False
          Visible = True
          DisplayFormat = 'dd.mm.yyyy'
        end
        object ACT_ID: TMTNumericDataFieldEh
          FieldName = 'ACT_ID'
          NumericDataType = fdtIntegerEh
          Alignment = taRightJustify
          DisplayLabel = 'ACT_ID'
          DisplayWidth = 10
          Required = False
          Visible = True
          currency = False
          Precision = 0
        end
        object PH: TMTNumericDataFieldEh
          FieldName = 'PH'
          NumericDataType = fdtBCDEh
          Alignment = taRightJustify
          DisplayLabel = #1053#1086#1074#1099#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1103
          DisplayWidth = 10
          Required = False
          Visible = True
          DisplayFormat = '#,##0.000'
          EditFormat = '0.000'
          currency = False
          Precision = 0
        end
        object PZERO: TMTNumericDataFieldEh
          FieldName = 'PZERO'
          NumericDataType = fdtSmallintEh
          Alignment = taRightJustify
          DisplayLabel = #1055#1077#1088#1077#1093#1086#1076#1086#1074' '#1095#1077#1088#1077#1079' 0'
          DisplayWidth = 10
          Required = False
          Visible = True
          currency = False
          Precision = 0
        end
      end
      object RecordsList: TRecordsListEh
      end
    end
  end
  object tr_Act: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 561
    Top = 190
  end
end
